home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d8 / mmscpt12.arc / MEGA.ASP < prev    next >
Text File  |  1991-06-08  |  3KB  |  167 lines
  1. ASSIGN S0 "MEOW"
  2. ASSIGN S1 "ATDT439-3060^M"
  3. ASSIGN S2 "YOUR NAME^M"
  4. ASSIGN S3 "PASSWORD^M"
  5. SET BAUDRATE 2400
  6. SET PARITY NONE
  7. SET DATABITS 8
  8. SET STOPBITS 1
  9. SET DUPLEX FULL
  10.  
  11. start:
  12. GOSUB set_scrn
  13. GOSUB del_old
  14. GOSUB chk_fst
  15. IF NOT LINKED
  16.   GOSUB con_scrn
  17.   GOSUB manual
  18.   IF NOT CONNECTED
  19.     GOSUB make_old
  20.     QUIT
  21.   ENDIF
  22. ENDIF
  23. EMULATE ANSI
  24. LOG OPEN S8
  25. PAUSE 3
  26. TRANSMIT "^M"
  27. WAITFOR "What is your first name?"
  28. PAUSE 1
  29. TRANSMIT S2
  30. WAITFOR "Password (Dots will echo)?"
  31. WHEN "Press (Enter) to continue?" "^M"
  32. PAUSE 1
  33. TRANSMIT S3
  34. ISFILE S7
  35. IF SUCCESS
  36.   WAITFOR "(H)elp, More?" FOREVER
  37.   PAUSE 1
  38.   TRANSMIT "N^M"
  39. ENDIF
  40. WAITFOR "New Bulletin(s):" 10
  41. RGET S4 80 5
  42. IF NOT WAITFOR
  43.   ASSIGN S4 "^M"
  44. ENDIF
  45. PAUSE 1
  46. TRANSMIT "^M"
  47. WAITFOR "Main Board Command?"
  48. ISFILE S7
  49. IF SUCCESS
  50.   GOSUB del_old
  51. ENDIF
  52. GOSUB get_bltn
  53. GOSUB get_nfns
  54. EXECUTE "M.ASP"
  55.  
  56. set_scrn:
  57.   IF MONO
  58.     INIT N1 7
  59.     INIT N2 7
  60.     INIT N3 7
  61.     INIT N4 7
  62.   ELSE
  63.     INIT N1 31
  64.     INIT N2 159
  65.     INIT N3 12
  66.     INIT N4 14
  67.   ENDIF
  68.   STRFMT S7 "%s.OLD" S0
  69.   STRFMT S8 "%s.LOG" S0
  70. RETURN
  71.  
  72. con_scrn:
  73.   CLEAR
  74.   STRFMT S9 "Logging onto %s..." S0
  75.   DATE S5
  76.   TIME S6 0
  77.   BOX 0 0 4 32 N1
  78.   ATSAY 2 2 N2 S9
  79.   ATSAY 1 35 N3 "Time started, this session:"
  80.   ATSAY 1 63 N4 S6
  81. RETURN
  82.  
  83. manual:
  84.   LOCATE 6 0
  85.   TRANSMIT S1
  86.   RFLUSH
  87.   RGET S9 13 65
  88.   RGET S9 13 5
  89.   SUBSTR S4 S9 1 13
  90.   STRFMT S9 "ECHO %s %s - %s >> %s.TXT" S5 S6 S4 S0
  91.   DOS S9
  92. RETURN                            
  93.  
  94. chk_fst:
  95.   STRFMT S9 "COMPDATE %s" S0
  96.   DOS S9
  97. RETURN
  98.  
  99. make_old:
  100.   ISFILE S8
  101.   IF SUCCESS
  102.     STRFMT S9 "COPY %s %s" S8 S7
  103.   ELSE
  104.     STRFMT S9 "COPY %s %s" S7 S8
  105.   ENDIF
  106.   DOS S9
  107. RETURN
  108.  
  109. del_old:
  110.   ISFILE S7
  111.   IF SUCCESS
  112.     STRFMT S9 "DEL %s" S7
  113.     DOS S9
  114.   ENDIF
  115. RETURN
  116.  
  117. get_view:
  118.   PAUSE 1
  119.   TRANSMIT "V^M"
  120.   WAITFOR "Main Board Command?" 60
  121. RETURN
  122.  
  123. get_bltn:
  124.   WHEN ", More?" "^M"
  125.   FIND S4 "^M"
  126.   IF FOUND
  127.     GOTO end_bltn
  128.   ENDIF
  129.   TRANSMIT "B "
  130.   STRCAT S4 " X "
  131.   SUBSTR S8 S4 1 99
  132. next_tx:
  133.   ASSIGN S4 S8
  134.   INIT N5 0
  135. next_chr:
  136.   SUBSTR S8 S4 N5 1
  137.   STRCMP S8 " "
  138.   IF NOT SUCCESS
  139.     INC N5
  140.     GOTO next_chr
  141.   ENDIF
  142.   SUBSTR S8 S4 0 N5
  143.   INC N5
  144.   STRCMP S8 "X"
  145.   IF NOT SUCCESS
  146.     STRFMT S9 "%s^M" S8
  147.     TRANSMIT S9
  148.     WAITFOR "Bulletin List Command?" FOREVER
  149.     SUBSTR S8 S4 N5 99
  150.     GOTO next_tx
  151.   ENDIF
  152.   PAUSE 1
  153.   TRANSMIT "^M"
  154.   WAITFOR "Main Board Command?" FOREVER
  155. end_bltn:
  156.   CWHEN
  157. RETURN
  158.  
  159. get_nfns:
  160.   WHEN ", More?" "^M"
  161.   PAUSE 1
  162.   TRANSMIT "N S A^M"
  163.   WAITFOR "Main Board Command?" FOREVER
  164.   CWHEN
  165. RETURN
  166.  
  167.